--Practica 0

--Ejercicio 4
--limpiar::String -> String -> String
--limpiar (x:xs) b = limpiar xs (limpiarAux x b)

limpiarAux::Char->String->String
limpiarAux x null = null
limpiarAux x (b:bs) = if x==b then limpiarAux x bs else b: limpiarAux x bs 


concatenar s = [x| y<-s, x<-y]